object GetRListForm: TGetRListForm
  Left = 0
  Top = 0
  ActiveControl = Grid
  BorderStyle = bsToolWindow
  Caption = #1042#1099#1073#1086#1088' '#1086#1090#1074#1077#1090#1072
  ClientHeight = 210
  ClientWidth = 331
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 169
    Width = 331
    Height = 41
    Align = alBottom
    TabOrder = 0
    object JvXPButton1: TJvXPButton
      Left = 16
      Top = 12
      Width = 140
      Caption = #1054#1082
      TabOrder = 0
      Default = True
      ModalResult = 1
      OnClick = JvXPButton1Click
    end
    object JvXPButton2: TJvXPButton
      Left = 172
      Top = 12
      Width = 140
      Caption = #1054#1090#1084#1077#1085#1080#1090#1100
      TabOrder = 1
      ModalResult = 2
    end
  end
  object Grid: TDBGridEh
    Left = 0
    Top = 0
    Width = 331
    Height = 169
    Align = alClient
    AutoFitColWidths = True
    DataSource = DataSource
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'Tahoma'
    FooterFont.Style = []
    Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    RowDetailPanel.Color = clBtnFace
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnKeyDown = GridKeyDown
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Name'
        Footers = <>
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object DS: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    LASTTIME,'
      '    BASECODE,'
      '    STATE,'
      '    ETYPE,'
      '    ENEXT'
      'FROM'
      '    SPR$RTYPE'
      'WHERE ETYPE = :ETYPE'
      'ORDER BY Name')
    Transaction = dm1.trnRD
    Database = dm1.db1
    UpdateTransaction = dm1.trnWr
    Left = 16
    Top = 8
  end
  object DataSource: TDataSource
    DataSet = DS
    Left = 44
    Top = 8
  end
end
